﻿Public Class BEQuery
  Private _strSelect As String

  Private _objWhere As New BEWhere
  Private _objSort As New BESort

  Sub New()
    _strSelect = ""
  End Sub

  Sub New(ByVal strSelect As String)
    _strSelect = strSelect
  End Sub

  Public Property _Select() As String
    Get
      Return _strSelect
    End Get
    Set(ByVal value As String)
      _strSelect = value
    End Set
  End Property

  Public Property Query() As String
    Get
      Return _strSelect & " " & _objWhere.Where() & " " & _objSort.OrderBy()
    End Get
    Set(ByVal value As String)
    End Set
  End Property

  Public Property Where() As BEWhere
    Get
      Return _objWhere
    End Get
    Set(ByVal value As BEWhere)
      _objWhere = value
    End Set
  End Property

  Public Property Sort() As BESort
    Get
      Return _objSort
    End Get
    Set(ByVal value As BESort)
      _objSort = value
    End Set
  End Property

End Class
